Know Your Hockey - The Greatest Player Resource/Know Your Hockey: The Greatest Player Resource.iso/hockey/director/ktgcst.cst/00067_Script_rollover_module

Text File | 1998-09-28 | 2KB | 72 lines

global EnterRollist,XitRollist,lastrollover,thisrollover


--- put the name of the handler that you want executed
-- for a specific sprite when the rollover occurs
--  in the internal cast in a field called onlist
-- egsprite 4 ijn list four
-- the first item in the line should be a number then the
-- desired commend separated by a ",'
-- the off list affects what happens when the rollover ends
-- and also requires a handler to be named
-- if no name is present nothing will happen
-- however both onlist and off list must have 48 lines with
-- a number at the start of each of the 48 lines

on initrolloverKit
  set lastrollover = empty
  set thisrollover = empty
  set EnterRollist = []
  set XitRollist = []
  set the itemDelimiter = ","
  repeat with x = 1 to 48
    set t = item 2 of (line x of field "onlist" of castlib "internal")
    setat(EnterRollist,x,t)
    set r = item 2 of (line x of field "offlist" of castlib "internal")
    setat(XitRollist,x,r)
  end repeat
end


on testforrollovers
  set thisrollover = rollover()
  if thisrollover = 0 then exit
  if (thisRollover <> LastRollover) then
    if lastRollover > 0 then
      do getat(Xitrollist,lastrollover)
    end if
    do getat(EnterRollist, thisrollover)
    set lastrollover = thisRollover
  end if
end

-- turns coach or announcer icon off at end of file
on soundover
  if soundbusy(1) then exit
  set flag1 = getat(gbuttonstate,40)
  set flag2 =  getat(gbuttonstate,41)
  set flag = max(flag1,flag2)
  if flag > 0 then
    Autoresetbanner
  end if
  -- reset golden rule if it was selected
  if getat(gbuttonstate,24) > 0 then
    set the blend of sprite 24 = 0 -- Turnoff Golden rule
    setat(gbuttonState,24,0)
    set the membernum of sprite 24 = the membernum of sprite 24-1
  end if
end

on autoresetbanner
  repeat with y = 41 down to 40
    set thisone = getat(gbuttonState,y)
    if thisone > 0  then
      set the membernum of sprite y = the membernum of sprite y -1
      setat(gbuttonState,y,0)
      exit repeat
    end if
  end repeat
  if the rollover <> y then set the blend of sprite y = 0
  updatestage
end